home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Magazine Collection 2001
/
Delphi Magazine Collection 20001 (2001).iso
/
DISKS
/
ISSUE20
/
TIPTRIX
/
LISTING5.PAS
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Pascal/Delphi Source File
|
1997-03-17
|
280 b
|
12 lines
function CloneTable(aTable: TTable): TTable;
begin
Result:=TTable.Create(nil);
with Result do begin
DataBaseName:=aTable.DataBaseName;
TableName:=aTable.TableName;
IndexFieldNames:=aTable.IndexFieldNames;
Open;
GotoCurrent(aTable);
end;
end;